Diese Funktion ist zu benutzen um Änderungen an der Datenbank vorzunehmen.

Das folgende Beispiel erzeugt die Tabelle "Kunde" mit den Spalten "vorname" und "name".


 

/****************************************************************

**                                                             **

** Name:        2_DBUpdate_CreateTable                               **

** Author:      Michael Suther                                 **

** Date:        07.04.19                                       **

** Interpreter: Hollywood 8.0                                  **

** Function:    Erstellt eine neue Tabelle in einer PgSQL-DB   **

**                                                             **

**                                                             **

****************************************************************/


@INCLUDE "PostgreSQL_Lib.hws"


Block        

       ;Netzwerkverbindung zum PostgreSQL-Server herstellen.

       Local ConnectionID = OpenConnection(Nil,"localhost",5432)

       

       ;Einige Variablen definieren

       Local Fail

       Local Errorcode

       Local Database$ = "postgres"

       Local Username$ = "test"

       Local Passwort$ = "test"

       

       ;Anmeldung

       Fail, ErrorCode = PG:OpenDatabase(Database$, Username$, Passwort$, ConnectionID)

       

       ; Auswerten der Rückgabewerte

       If Fail = False 

               NPrint("Verbindung wurde erfolgreich hergestellt.")

       Else

               NPrint("Die Verbindung ist fehlgeschlagen,")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf


       ;Der SQL query

       Local SQL$ = "CREATE TABLE Kunde (vorname text, name text)"

       

       ;Eine neue Tabelle erzeugen

       Fail, Errorcode = PG:DatabaseUpdate(SQL$, ConnectionID)

       

       ; Auswerten der Rückgabewerte

       If Fail = False 

               NPrint("Tabelle wurde erstellt.")

       Else

               NPrint("Create Table ist fehlgeschlagen.")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf

       

       WaitLeftMouse

       

       ;Verbindung zur Datenbank schließen.

       PG:CloseDatabase(ConnectionID)

               

EndBlock

Mit dem Personal Edition von HelpNDoc erstellt: Web-basierte iPhone-Dokumentation erstellen